--- a/ClassDefinitionChange.st	Sun Feb 02 14:26:36 2014 +0000
+++ b/ClassDefinitionChange.st	Tue Feb 04 21:01:56 2014 +0100
@@ -83,23 +83,15 @@
 !
 
 delta
-    | ns changeClass changeSource imageSource  |
+    | changeClass changeSource imageSource  |
+
 
-    "/ Must enforce current namespace because caller (such as Workspace!!!!!!) enforces
-    "/ the namespace wia NameSpaceQuerySignal. Therefore for classes not in Smalltalk.
-    "/ `self changeClass` will always return nil, sigh.
-    ns := nameSpaceName notNil ifTrue:[(NameSpace fullName: nameSpaceName)] ifFalse:[nil].
-    Class nameSpaceQuerySignal answer: nil do:[
-        changeClass := self changeClass.
-        changeClass isNil ifTrue:[^#+].
-        self isPrivateClassDefinitionChange ifTrue:[
-            changeSource := self definitionStringInNamespace: nil.
-            imageSource := changeClass definition.
-        ] ifFalse:[
-            changeSource := self definitionString.
-            imageSource := changeClass definitionWithoutPackage.
-        ].
-    ].
+    changeClass := self changeClass.
+    changeClass isNil ifTrue:[^#+].
+    changeSource := self definitionString.
+    imageSource := self isPrivateClassDefinitionChange 
+                    ifTrue:[changeClass definition]
+                    ifFalse:[changeClass definitionWithoutPackage].
 
     ^ (self class isSource: changeSource 
                  sameSourceAs: imageSource) ifTrue:[ #= ] ifFalse:[ #~ ].
@@ -109,7 +101,7 @@
     "
 
     "Modified: / 31-08-2011 / 09:26:48 / cg"
-    "Modified: / 12-12-2013 / 13:41:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-02-2014 / 20:30:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 deltaDetail