--- a/Class.st	Wed Jan 23 19:05:37 2013 +0100
+++ b/Class.st	Wed Jan 23 23:03:22 2013 +0100
@@ -631,7 +631,6 @@
     "Created: / 18.6.1998 / 22:08:45 / cg"
 ! !
 
-
 !Class methodsFor:'accessing'!
 
 addChangeRecordForClass:aClass andNotifyChangeOf:aspect
@@ -5011,12 +5010,13 @@
 
         sourceCodeManager notNil ifTrue:[
             classFilename ~= source ifTrue:[
-                sep := self package indexOfAny:'/\:'.
-                sep ~~ 0 ifTrue:[
-                    mod := package copyTo:sep - 1.
-                    dir := package copyFrom:sep + 1.
-self breakPoint:#fm.
-                    sourceStream := sourceCodeManager streamForClass:nil fileName:source revision:(self binaryRevision) directory:dir module:mod cache:true.
+                package notNil ifTrue:[
+                    sep := package indexOfAny:'/\:'.
+                    sep ~~ 0 ifTrue:[
+                        mod := package copyTo:sep - 1.
+                        dir := package copyFrom:sep + 1.
+                        sourceStream := sourceCodeManager streamForClass:nil fileName:source revision:(self binaryRevision) directory:dir module:mod cache:true.
+                    ]
                 ].
             ].
             sourceStream isNil ifTrue:[
@@ -5498,11 +5498,11 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.613 2013-01-22 13:08:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.614 2013-01-23 22:03:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.613 2013-01-22 13:08:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.614 2013-01-23 22:03:22 cg Exp $'
 !
 
 version_SVN