--- tkcron.tcl.orig	Tue Oct 10 09:56:00 1995
+++ tkcron.tcl	Mon Mar 27 20:17:48 2000
@@ -281,6 +281,7 @@
 
 # Return the crontab string as a list
 proc parseCrontabFile {str} {
+    set result ""
     set crontablist [split $str \n]
     set listlength [llength $crontablist]
     for {set i 0} {$i < $listlength} {incr i 1} {
