Fixed unset

diff --git a/robot.tcl b/robot.tcl
index 9851f19..608f562 100755 (executable)
--- a/robot.tcl
+++ b/robot.tcl
@@ -1,5 +1,5 @@
 #!/usr/bin/tclsh 
-# $Id: robot.tcl,v 1.46 2003/09/18 07:41:25 adam Exp $
+# $Id: robot.tcl,v 1.47 2003/12/10 09:58:22 adam Exp $
 #
 proc RobotFileNext1 {area lead} {
     # puts "RobotFileNext1 area=$area lead=$lead"
@@ -707,7 +707,7 @@ proc RobotTextHtml {task url out} {
                         set metacontent $parm($a)
                     }
                 }
-               unset parm($al)
+               unset parm($a)
             }
            puts $out "></meta>"
             # go through robots directives (af any)