--- ../src/plugin2tcl.tcl.orig	Sun Mar 19 20:33:42 2000
+++ ../src/plugin2tcl.tcl	Sun Mar 19 20:35:39 2000
@@ -8,7 +8,7 @@
 puts $file "set createrules \"$createrules\""
 foreach ary {tooldata mediadata fmts protos protonames fmtnames mappings attrs attrnames attrvaluenames attrflags noattrflags noattrlist defattrlist withattrs macros macrokeys fmtlayers} {
     foreach key [array names $ary] {
-	puts $file "set [set ary]($key) \"[set [set ary]($key)]\""
+	puts $file [list set [set ary]($key) [set [set ary]($key)]]
     }
 }
 close $file