--- a/MethodChange.st	Wed Apr 07 15:31:29 2010 +0200
+++ b/MethodChange.st	Wed Apr 07 15:31:57 2010 +0200
@@ -110,7 +110,8 @@
 !
 
 className:clsName selector:sel source:src category:cat privacy:priv
-    self assert:(src isString).
+    "/ self assert:(src isString).
+    "/ self assert:(sel isString or:[sel isSymbol]).
 
     className := clsName.
     selector := sel.
@@ -165,6 +166,8 @@
 !
 
 selector:aSymbol
+    self assert:(aSymbol isSymbol).
+
     selector := aSymbol
 
     "Created: / 6.2.1998 / 13:29:25 / cg"
@@ -302,9 +305,9 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.52 2009-10-07 12:15:20 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.53 2010-04-07 13:31:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.52 2009-10-07 12:15:20 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.53 2010-04-07 13:31:57 cg Exp $'
 ! !