--- a/Smalltalk.st	Thu Nov 05 17:25:26 2009 +0100
+++ b/Smalltalk.st	Thu Nov 05 17:26:24 2009 +0100
@@ -1653,7 +1653,7 @@
 %{
     char *msg;
 
-    if (__isString(aMessage))
+    if (__isStringLike(aMessage))
         msg = (char *) __stringVal(aMessage);
     else
         msg = "fatalAbort";
@@ -1662,7 +1662,6 @@
     /* NEVER RETURNS */
 %}.
     ^ self primitiveFailed
-
 !
 
 vmInstructionTrace:aBoolean
@@ -3813,7 +3812,7 @@
     char *msg = (char *)0;
     int clr = 0;
 
-    if (__isString(aMessageStringOrNil)) {
+    if (__isStringLike(aMessageStringOrNil)) {
         msg = __stringVal(aMessageStringOrNil);
     }
     if (__isSmallInteger(rgbValueOrNil)) {
@@ -7374,9 +7373,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.909 2009-10-30 16:38:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.910 2009-11-05 16:26:24 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.909 2009-10-30 16:38:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.910 2009-11-05 16:26:24 stefan Exp $'
 ! !