--- a/Class.st	Fri Nov 06 13:54:52 2009 +0100
+++ b/Class.st	Fri Nov 06 20:32:09 2009 +0100
@@ -4614,7 +4614,7 @@
                 sep ~~ 0 ifTrue:[
                     mod := package copyTo:sep - 1.
                     dir := package copyFrom:sep + 1.
-self halt.
+self breakPoint:#fm.
                     sourceStream := sourceCodeManager streamForClass:nil fileName:source revision:(self binaryRevision) directory:dir module:mod cache:true.
                 ].
             ].
@@ -5022,9 +5022,9 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.561 2009-11-06 10:51:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.562 2009-11-06 19:32:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.561 2009-11-06 10:51:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.562 2009-11-06 19:32:09 cg Exp $'
 ! !