--- a/Class.st	Wed Oct 25 00:04:24 2006 +0200
+++ b/Class.st	Wed Oct 25 13:33:23 2006 +0200
@@ -1236,10 +1236,17 @@
      since the comment and primitiveSpecs may no longer be accessable, 
      if a wrong filename is set here."
 
+"/ cg: somewhere, the filename is set from a temporary (checkout) files name.
+"/ we MUST catch and FIX this.
+(aFilename asFilename baseName startsWith:'st') ifTrue:[
+    (aFilename asFilename baseName at:3) isDigit ifTrue:[
+        self halt
+    ].
+].
     classFilename := aFilename
 
     "Modified: / 08-09-1995 / 14:16:48 / claus"
-    "Modified: / 06-10-2006 / 13:32:52 / cg"
+    "Modified: / 25-10-2006 / 13:33:05 / cg"
 !
 
 setClassVariableString:aString
@@ -4707,5 +4714,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.517 2006-10-20 11:26:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.518 2006-10-25 11:33:23 cg Exp $'
 ! !