Index: scriptlibs/regproc/regproc.tcl
==================================================================
--- scriptlibs/regproc/regproc.tcl
+++ scriptlibs/regproc/regproc.tcl
@@ -38,11 +38,10 @@
     proc setClock {} {
 	variable datadir 
 	variable appname
 	variable appversion
 	variable appstore
-	puts "datadir is $datadir"
 
 	set launchTime [clock seconds]
 	set saveTime [open $datadir/$appname$appversion.dat w]
 	puts $saveTime $launchTime
 	close $saveTime
@@ -252,12 +251,10 @@
 	    lappend serialbase [string toupper $appname]-[expr $i * 5]-[expr $i/11]-[expr $i - 1]-[string toupper [string trim [string range $appname 0 1]]]
 	}
 	
 
 	set output [lsearch  -inline $serialbase $serial]
-	puts $serial
-	puts $output
 	
 	if {$output >= 0} {
 	    cd $datadir
 	    set lic [open $datadir/lic.dat w]
 	    puts $lic "$serial"