diff --git a/source/errorlist.exe b/source/errorlist.exe
new file mode 100755
index 0000000000..1308953ff8
Binary files /dev/null and b/source/errorlist.exe differ
diff --git a/source/errorlist.pl b/source/errorlist.pl
index 58f83d52f3..e108f65c76 100755
--- a/source/errorlist.pl
+++ b/source/errorlist.pl
@@ -160,28 +160,30 @@ const wchar_t* GetErrorString(PSRETURN code)
 
 for (sort keys %types) {
   (my $name = $_) =~ s/~/_/;
-  print $out qq{\tcase 0x}.unpack('H*',$types{$_}).qq{: return L"$name"; break;\n};
+  print $out qq{\tcase 0x}.unpack('H*',$types{$_}).qq{: return L"$name";\n};
 }
 
 print $out <<".";
+
+\tdefault: return L"Unrecognised error";
 \t}
-\treturn L"Unrecognised error";
 }
 
 void ThrowError(PSRETURN code)
 {
-\tswitch (code)
+\tswitch (code)  // Use 'break' in case someone tries to continue from the exception
 \t{
 .
 
 for (sort keys %types) {
   (my $name = $_) =~ s/~/_/;
-  print $out qq{\tcase 0x}.unpack('H*',$types{$_}).qq{: throw PSERROR_$name();\n};
+  print $out qq{\tcase 0x}.unpack('H*',$types{$_}).qq{: throw PSERROR_$name(); break;\n};
 }
 
 print $out <<".";
+
+\tdefault: throw PSERROR_Error_InvalidError(); // Hmm...
 \t}
-\tthrow PSERROR_Error_InvalidError(); // Hmm...
 }
 .
 
diff --git a/source/perl58.dll b/source/perl58.dll
new file mode 100755
index 0000000000..12ee9e490e
Binary files /dev/null and b/source/perl58.dll differ