--- loncom/lond	2000/12/05 19:03:13	1.25
+++ loncom/lond	2000/12/05 19:14:59	1.26
@@ -606,7 +606,7 @@ sub make_new_child {
                          } else {
                            $now=time;
                            { 
-			    my sh;
+			    my $sh;
                             if ($sh=
                              IO::File->new(">$fname.$hostid{$clientip}")) {
                                print $sh "$clientip:$now\n";