--- a/MethodChange.st	Wed Jun 18 17:40:51 2003 +0200
+++ b/MethodChange.st	Wed Jun 18 17:41:21 2003 +0200
@@ -157,11 +157,16 @@
 apply
     "apply the change"
 
-    |class|
+    |fullClassName class|
+
+    fullClassName := self nameSpaceName , '::' , self className.
 
-    class := Smalltalk classNamed:self className.
+    class := Smalltalk classNamed:fullClassName.
     class isNil ifTrue:[
-        class := Parser evaluate:self className
+        class := Parser evaluate:fullClassName
+    ].
+    class isNil ifTrue:[
+        self error:('Cannot apply change for missing class: ' , fullClassName).
     ].
     class compile:source classified:methodCategory logged:true.
 ! !
@@ -229,5 +234,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.32 2003-06-03 16:25:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.33 2003-06-18 15:41:21 cg Exp $'
 ! !