Index: lang/smalltalk/misc/gost.st
===================================================================
--- lang/smalltalk/misc/gost.st (revision 5750)
+++ lang/smalltalk/misc/gost.st (revision 5926)
@@ -96,14 +96,18 @@
 , o
   ^(UnicodeString with: self), (o isCharacter ifTrue: [ {o} ] ifFalse: [ o ])!
-+ n
-  ^Character codePoint: codePoint + n!
++ o
+  o isInteger and: [ ^Character codePoint: codePoint + n ]
+  self doesNotUnderstand: (Message selector: #+ arguments: {o})!
 - o
   o isInteger   and: [ ^Character codePoint: codePoint - o ].
-  o isCharacter and: [ ^codePoint - o codePoint ]!
+  o isCharacter and: [ ^codePoint - o codePoint ]
+  self doesNotUnderstand: (Message selector: #- arguments: {o})!
 * n
-  ^UnicodeString new: n withAll: self!
+  o isInteger and: [ ^UnicodeString new: n withAll: self ]
+  self doesNotUnderstand: (Message selector: #* arguments: {o})!
 ~ c
-  ^UnicodeString withAll:
-    ((codePoint to: c codePoint) collect: [:v| Character codePoint: v ])!
+  o isCharacter and: [ ^UnicodeString withAll:
+    ((codePoint to: c codePoint) collect: [:v| Character codePoint: v ]) ]
+  self doesNotUnderstand: (Message selector: #~ arguments: {o})!
 <- o
   ^Golf.Dic at: self put: o!
@@ -228,4 +232,5 @@
   ^(self contents subStrings: (Golf.Dic at: $/)) \ b!
 
+
 "[ Not-so-golf Additions ]"
 
@@ -300,5 +305,5 @@
 
 !SelfAssigner class methodsFor: 'initialization'!
-initialize
+isolate
   superclass := nil!
 
@@ -309,3 +314,3 @@
   value := o!
 !
-SelfAssigner initialize!
+SelfAssigner isolate!