--- a/Arrow.st	Fri Mar 25 17:11:05 2016 +0100
+++ b/Arrow.st	Fri Mar 25 17:12:47 2016 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 LineSegment subclass:#Arrow
 	instanceVariableNames:'arrowHeadPosition arrowHeadLength arrowHeadAngle arrowHeadClosed'
 	classVariableNames:'DefaultLength DefaultAngle'
@@ -455,9 +457,9 @@
 !
 
 displayOn:aGC filled:filled
-    "display the receivers arrow in the graphicsContext, aGC"
+    "display the receiver's arrow in the graphicsContext, aGC"
 
-    |arrowHeadPoint savedLineStyle p1 p2 p3 arrowPoints middle oldCap|
+    |arrowHeadPoint savedLineStyle p1 p2 arrowPoints middle oldCap|
 
     savedLineStyle := aGC lineStyle.
     aGC lineStyle:#solid.
@@ -570,11 +572,12 @@
 !Arrow class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Arrow.st,v 1.28 2011-03-14 10:43:41 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Arrow.st,v 1.28 2011-03-14 10:43:41 cg Exp $'
+    ^ '$Header$'
 ! !
 
+
 Arrow initialize!