if ($realpack) { # we have a blessed ref
      $out .= ', \'' . $realpack . '\'' . ' )';
-      $out .= '->' . $s->{toaster} . '()'  if $s->{toaster} ne '';
+      $out .= '->' . $s->{toaster} . '()'
+        if $s->{toaster} ne '' and UNIVERSAL::can( $val, $s->{toaster});
      $s->{apad} = $blesspad;
    }