--- a/HVScrollableView.st	Fri Feb 28 10:30:43 1997 +0100
+++ b/HVScrollableView.st	Fri Feb 28 10:31:09 1997 +0100
@@ -463,10 +463,15 @@
 
     "Modified: 23.4.1996 / 00:15:25 / cg"
     "Created: 24.5.1996 / 17:15:43 / cg"
+!
+
+specClass
+    self class == HVScrollableView ifTrue:[^ ScrollableViewSpec].
+    ^ super specClass
 ! !
 
 !HVScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.23 1997-01-16 18:07:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.24 1997-02-28 09:31:09 ca Exp $'
 ! !