--- a/Class.st	Wed Oct 22 00:20:11 2008 +0200
+++ b/Class.st	Wed Oct 22 00:20:59 2008 +0200
@@ -1369,7 +1369,7 @@
 aFilename notNil ifTrue:[
     (aFilename asFilename baseName startsWith:'st') ifTrue:[
         (aFilename asFilename baseName at:3) isDigit ifTrue:[
-            self halt
+            self halt:'this should not be reached'
         ].
     ].
 ].
@@ -4890,5 +4890,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.531 2008-09-08 10:12:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.532 2008-10-21 22:20:59 cg Exp $'
 ! !