Index: openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/openacs-kernel-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	25 Mar 2002 05:28:09 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	10 May 2002 03:45:04 -0000	1.3
@@ -137,4 +137,19 @@
 	    ns_set put $ns_set $var $one_var
 	}
     }
+
+    ad_proc -public parameter {
+	{-package_key:required}
+	{-key:required}
+    } {
+        wraps ad_parameter. i'm just sick of ad_parameter calling verbosity. 
+        i will break down and re-write it, just not tonight
+        @author arjun@openforce
+    } {
+        return [ad_parameter \
+                -package_id [apm_package_id_from_key $package_key] \
+                $key
+        ]
+    }
+
 }