--- a/WinWorkstation.st	Sun Sep 26 15:31:40 1999 +0200
+++ b/WinWorkstation.st	Sun Sep 26 15:38:11 1999 +0200
@@ -10385,11 +10385,11 @@
     list do:[:anInfoArray |
 	| fntDescr family face style size encoding |
 
-	family := anArray at:14.
-	face   := anArray at:5.
-	style  := anArray at:16.
-	size   := anArray at:1.
-	encoding := anArray at:15.
+	family := anInfoArray at:14.
+	face   := anInfoArray at:5.
+	style  := anInfoArray at:16.
+	size   := anInfoArray at:1.
+	encoding := anInfoArray at:15.
 
 	fntDescr := FontDescription
 			family:family
@@ -13699,6 +13699,6 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.165 1999-09-26 13:31:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.166 1999-09-26 13:38:11 cg Exp $'
 ! !
 WinWorkstation initialize!