Index: openacs-4/packages/workflow/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/install-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/workflow/tcl/install-procs.tcl	8 Mar 2004 13:25:55 -0000	1.8
+++ openacs-4/packages/workflow/tcl/install-procs.tcl	25 Jun 2008 22:36:56 -0000	1.9
@@ -382,7 +382,7 @@
     }
     
     lappend spec contract_name [workflow::service_contract::role_default_assignees] 
-    lappend spec owner [workflow::package_key]
+    lappend spec owner workflow
     
     acs_sc::impl::new_from_spec -spec $spec
 }
@@ -399,7 +399,7 @@
     }
     
     lappend spec contract_name [workflow::service_contract::role_default_assignees] 
-    lappend spec owner [workflow::package_key]
+    lappend spec owner workflow
     
     acs_sc::impl::new_from_spec -spec $spec
 }
@@ -416,7 +416,7 @@
     }
 
     lappend spec contract_name [workflow::service_contract::role_assignee_pick_list]
-    lappend spec owner [workflow::package_key]
+    lappend spec owner workflow
 
     acs_sc::impl::new_from_spec -spec $spec
 }
@@ -433,7 +433,7 @@
     }
     
     lappend spec contract_name [workflow::service_contract::role_assignee_subquery]
-    lappend spec owner [workflow::package_key]
+    lappend spec owner workflow
     
     acs_sc::impl::new_from_spec -spec $spec
 }
@@ -451,7 +451,7 @@
         }  
     }
     
-    lappend spec owner [workflow::package_key]
+    lappend spec owner workflow
     
     acs_sc::impl::new_from_spec -spec $spec
 }
@@ -466,7 +466,7 @@
 ad_proc -public workflow::install::register_notification_types {} {
     Register workflow notification types
 } {
-    set sc_impl_id [acs_sc::impl::get_id -owner [workflow::package_key] -name "WorkflowNotificationType"]
+    set sc_impl_id [acs_sc::impl::get_id -owner workflow -name "WorkflowNotificationType"]
     
     set type_id [list]
     
Index: openacs-4/packages/workflow/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/workflow/tcl/workflow-procs.tcl	8 Aug 2006 21:27:26 -0000	1.27
+++ openacs-4/packages/workflow/tcl/workflow-procs.tcl	25 Jun 2008 22:36:56 -0000	1.28
@@ -17,10 +17,6 @@
 #
 #####
 
-ad_proc -public workflow::package_key {} {
-    return "workflow"
-}
-
 ad_proc -public workflow::new {
     {-pretty_name:required}
     {-short_name {}}
@@ -1187,27 +1183,27 @@
 #####
 
 ad_proc -public workflow::service_contract::role_default_assignees {} {
-    return "[workflow::package_key].Role_DefaultAssignees"
+    return "workflow.Role_DefaultAssignees"
 }
 
 ad_proc -public workflow::service_contract::role_assignee_pick_list {} {
-    return "[workflow::package_key].Role_AssigneePickList"
+    return "workflow.Role_AssigneePickList"
 }
 
 ad_proc -public workflow::service_contract::role_assignee_subquery {} {
-    return "[workflow::package_key].Role_AssigneeSubQuery"
+    return "workflow.Role_AssigneeSubQuery"
 }
 
 ad_proc -public workflow::service_contract::action_side_effect {} {
-    return "[workflow::package_key].Action_SideEffect"
+    return "workflow.Action_SideEffect"
 }
 
 ad_proc -public workflow::service_contract::activity_log_format_title {} {
-    return "[workflow::package_key].ActivityLog_FormatTitle"
+    return "workflow.ActivityLog_FormatTitle"
 }
 
 ad_proc -public workflow::service_contract::notification_info {} {
-    return "[workflow::package_key].NotificationInfo"
+    return "workflow.NotificationInfo"
 }
 
 ad_proc -public workflow::service_contract::get_impl_id {