--- a/HaltInterrupt.st	Fri Apr 26 18:03:27 2013 +0100
+++ b/HaltInterrupt.st	Mon Apr 29 19:43:44 2013 +0100
@@ -12,10 +12,10 @@
 "{ Package: 'stx:libbasic' }"
 
 ControlInterrupt subclass:#HaltInterrupt
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Kernel-Exceptions-Control'
+    instanceVariableNames: ''
+    classVariableNames: ''
+    poolDictionaries: ''
+    category: 'Kernel-Exceptions-Control'
 !
 
 !HaltInterrupt class methodsFor:'documentation'!
@@ -41,10 +41,22 @@
 "
 ! !
 
+
+!HaltInterrupt class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'halt encountered'.
+
+    "
+     self initialize
+    "
+! !
+
+
 !HaltInterrupt class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/HaltInterrupt.st,v 1.3 2003/08/29 19:18:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/HaltInterrupt.st,v 1.4 2013-04-27 10:12:51 cg Exp $'
 !
 
 version_SVN
@@ -52,4 +64,4 @@
 ! !
 
 
-
+HaltInterrupt initialize!