--- a/StrokingWrapper.st	Thu May 09 10:31:26 1996 +0200
+++ b/StrokingWrapper.st	Thu May 09 10:33:21 1996 +0200
@@ -11,7 +11,7 @@
 "
 
 
-Wrapper subclass:#StrokingWrapper
+GeometricWrapper subclass:#StrokingWrapper
 	instanceVariableNames:'lineWidth'
 	classVariableNames:''
 	poolDictionaries:''
@@ -164,5 +164,5 @@
 !StrokingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/StrokingWrapper.st,v 1.3 1996-05-08 23:11:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/StrokingWrapper.st,v 1.4 1996-05-09 08:33:21 cg Exp $'
 ! !