Index: openacs-4/packages/spam/www/admin/spam-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/spam/www/admin/spam-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/spam/www/admin/spam-edit.tcl	4 Sep 2001 21:14:59 -0000	1.2
+++ openacs-4/packages/spam/www/admin/spam-edit.tcl	28 Mar 2002 22:54:41 -0000	1.3
@@ -60,8 +60,8 @@
 } else {
     db_1row spam_get_text {
 	select content, mime_type
-	  from acs_contents
-	where content_id = :content_object_id
+	  from cr_revisions
+	where revision_id = content_item.get_live_revision(:content_item_id)
     }
     if {$mime_type == "text/plain"} {
 	set plain_text $content