Index: openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	27 Jun 2015 16:03:13 -0000	1.15
+++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	7 Aug 2017 23:47:58 -0000	1.16
@@ -26,7 +26,9 @@
 }
 
 if { $instance_name eq "" } {
-        set instance_name [db_string instance_default_name "select pretty_name from apm_package_types where package_key = :package_key"]
+    set instance_name [db_string instance_default_name {
+        select pretty_name from apm_package_types where package_key = :package_key
+    }]
 }
 
 db_transaction {
@@ -62,9 +64,15 @@
 	ad_return_complaint 1 "Error Creating Package: The following error was generated
 		when attempting to create the package
 	<blockquote><pre>
-		[ad_quotehtml $errmsg]
+		[ns_quotehtml $errmsg]
 	</pre></blockquote>"
     }
 }
 
 ad_returnredirect [export_vars -base . {expand:multiple root_id}]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: