Index: openacs-4/packages/trackback/tcl/test/trackback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/trackback/tcl/test/trackback-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/trackback/tcl/test/trackback-procs.tcl	14 Nov 2003 13:23:42 -0000	1.1
+++ openacs-4/packages/trackback/tcl/test/trackback-procs.tcl	14 Nov 2003 13:30:45 -0000	1.2
@@ -19,18 +19,18 @@
             set comment_id [db_nextval acs_object_id_seq]
             
             # Add entry
-            set entry_id [trackback::new \
-                              -tb_url $tb_url \
-                              -blog_name "Foo" \
-                              -object_id $object_id \
-                              -comment_id $comment_id \
-                              -user_id [ad_conn user_id] \
-                              -creation_ip [ad_conn peeraddr] \
-                              -content "Foo" \
-                              -comment_mime_type "text/plain" \
-                              -is_live f \
-                              -title "Foo" \
-                              -context_id $object_id]
+            trackback::new \
+                -tb_url $tb_url \
+                -blog_name "Foo" \
+                -object_id $object_id \
+                -comment_id $comment_id \
+                -user_id [ad_conn user_id] \
+                -creation_ip [ad_conn peeraddr] \
+                -content "Foo" \
+                -comment_mime_type "text/plain" \
+                -is_live f \
+                -title "Foo" \
+                -context_id $object_id
 
             set success_p [db_string success_p {
                 select 1 from trackback_pings where tb_url = :tb_url