Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	17 May 2003 09:45:46 -0000	1.12
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	17 Sep 2003 22:00:05 -0000	1.13
@@ -88,13 +88,7 @@
     @return A link to the first instance of the developer-support information available in the site node, \
 	    the empty_string if none are available.
 } {
-    return [util_memoize [list db_string ds_support_url {
-	select site_node.url(node_id) 
-	from site_nodes s, apm_packages p
-	where p.package_id = s.object_id
-	and p.package_key ='acs-developer-support'
-	and rownum = 1
-    } -default ""]]
+    return [apm_package_url_from_key "acs-developer-support"]
 }
 
 proc_doc ds_link {} { Returns the "Developer Information" link in a right-aligned table, if enabled. } {