--- a/ClassInstVarDefinitionChange.st	Wed Feb 05 18:52:18 2014 +0100
+++ b/ClassInstVarDefinitionChange.st	Wed Feb 05 18:52:19 2014 +0100
@@ -43,6 +43,23 @@
 
 classInstVarNames:something
     classInstVarNames := something.
+!
+
+delta
+    | ns changeClass |
+
+    "/ 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 name: nameSpaceName)] ifFalse:[nil].
+    Class nameSpaceQuerySignal answer: nil do:[
+        changeClass := self changeClass.
+        changeClass isNil ifTrue:[^#+].
+    ].
+
+    ^ classInstVarNames = changeClass instanceVariableNames ifTrue:[#'='] ifFalse:[#'~']
+
+    "Created: / 13-11-2013 / 17:58:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ClassInstVarDefinitionChange methodsFor:'comparing'!
@@ -94,5 +111,6 @@
 !ClassInstVarDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassInstVarDefinitionChange.st,v 1.7 2011-11-25 16:45:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassInstVarDefinitionChange.st,v 1.8 2014-02-05 17:52:19 cg Exp $'
 ! !
+