--- loncom/lonnet/perl/lonnet.pm	2006/11/10 18:44:34	1.803
+++ loncom/lonnet/perl/lonnet.pm	2006/11/15 14:35:10	1.804
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.803 2006/11/10 18:44:34 albertel Exp $
+# $Id: lonnet.pm,v 1.804 2006/11/15 14:35:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4299,8 +4299,8 @@ sub auto_instcode_defaults {
                     $returnhash->{&unescape($name)}=&unescape($value);
                 }
             }
+            $ok_response = 1;
         }
-        $ok_response = 1;
     }
     if ($ok_response) {
         return 'ok';