--- a/AlignmentOrigin.st	Wed Feb 12 19:30:06 1997 +0100
+++ b/AlignmentOrigin.st	Thu Feb 13 19:18:48 1997 +0100
@@ -175,7 +175,7 @@
 topAlignmentFraction
     "return topAlignmentFraction"
 
-    ^ topFraction
+    ^ topAlignmentFraction
 !
 
 topAlignmentFraction:something
@@ -303,5 +303,5 @@
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.18 1997-02-11 23:06:06 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.19 1997-02-13 18:18:48 ca Exp $'
 ! !