--- a/Object.st	Mon Jul 17 11:42:28 2017 +0200
+++ b/Object.st	Mon Jul 17 11:42:52 2017 +0200
@@ -3151,6 +3151,21 @@
     "Modified: / 18-11-2010 / 11:22:16 / cg"
 !
 
+haltIfNil
+    "halt if the receiver is nil"
+
+    <resource: #skipInDebuggersWalkBack>
+
+    ^ self
+
+    "
+     3 haltIfNil
+     nil haltIfNil
+    "
+
+    "Created: / 17-07-2017 / 10:51:56 / cg"
+!
+
 isBreakPointEnabled:someKey
     "{ Pragma: +optSpace }"
 
@@ -4397,11 +4412,13 @@
 implementedBySubclass
     "{ Pragma: +optSpace }"
 
-    "this is sent by ST/V code - its the same as #subclassResponsibility"
+    "this is sent by ST/V code - it's the same as #subclassResponsibility"
 
     <resource: #skipInDebuggersWalkBack>
 
     ^ SubclassResponsibilityError raiseRequestErrorString:'method must be reimplemented in ST/V subclass'
+
+    "Modified (comment): / 16-07-2017 / 11:33:50 / cg"
 !
 
 indexNotInteger