Index: openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl	15 Dec 2007 11:27:07 -0000	1.1
+++ openacs-4/packages/facebook-api/tcl/facebook-api-procs.tcl	16 Dec 2007 14:10:18 -0000	1.2
@@ -302,6 +302,7 @@
 }
 
 ad_proc facebook_api::get_group_members {
+    -package_key
     -session_key
     -gid
     {-format json}
@@ -389,7 +390,7 @@
     
     @return JSON data from are_friends
 } {
-    set json [facebook_api::are_friends -package_key "netgraph" \
+    set json [facebook_api::are_friends -package_key $package_key \
 		  -friend_ids $friend_ids \
 		  -session_key $session_key]
     ad_return_complaint 1 [json::json2dict $json]