--- a/Change.st	Fri Jun 06 13:46:05 2003 +0200
+++ b/Change.st	Tue Jun 10 10:56:58 2003 +0200
@@ -110,7 +110,12 @@
 source:someString
     "set the source of the change"
 
-someString isString ifFalse:[self halt].
+    "/ debugging only ...
+    someString isString ifFalse:[
+        (someString respondsTo:#string) ifFalse:[
+            self halt:'argument should be string-like'
+        ]
+    ].
     source := someString
 
     "Modified: / 15.7.1996 / 09:26:34 / cg"
@@ -285,5 +290,5 @@
 !Change class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.39 2003-06-03 16:25:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.40 2003-06-10 08:56:58 cg Exp $'
 ! !