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]