- beautified

c580ba65 · Frank Bergmann · 397360df · c580ba65
Commit c580ba65 authored May 22, 2014 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

package-procs.tcl tcl/package-procs.tcl +1 -1

No files found.
--- a/tcl/package-procs.tcl
+++ b/tcl/package-procs.tcl
@@ -146,7 +146,7 @@ ad_proc -private package_create_attribute_list {
    }
    
    if { $supertype ne "" && $object_name ne "" } {
-	foreach row [util_memoize "package_table_columns_for_type \"$supertype\""] {
+	foreach row [util_memoize [list package_table_columns_for_type $supertype]] {
 	    set table_name [lindex $row 0]
 	    set column_name [lindex $row 1]