--- capa/capa51/GUITools/webpage.tcl	1999/09/28 21:25:37	1.1
+++ capa/capa51/GUITools/webpage.tcl	1999/12/07 19:10:47	1.2
@@ -172,7 +172,7 @@ proc optionlist { match } {
     }
     set confID [open "class.conf"]
     set aline [gets $confID]
-    while {![eof $confID]} {
+    while {!([eof $confID] && ($aline == ""))} {
 	set type [lindex $aline 3]
 	if { [lsearch $type $match] != -1 } {
 	    set classname [lindex $aline 0]