Index: openacs-4/packages/ratings/tcl/rating-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ratings/tcl/rating-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ratings/tcl/rating-procs.tcl	21 May 2004 07:48:05 -0000	1.3
+++ openacs-4/packages/ratings/tcl/rating-procs.tcl	14 Jun 2004 14:17:54 -0000	1.4
@@ -32,10 +32,10 @@
     set dimension_id $dim(dimension_id)
 
     if { [db_0or1row get_ratings { 
-        SELECT rating_ave, rating_sum, ratings 
-        FROM rating_aggregates 
-        WHERE dimension_id = :dimension_id
-        and object_id = :object_id } -column_array ret] } {
+        SELECT r.*
+        FROM rating_aggregates r
+        WHERE r.dimension_id = :dimension_id
+          and r.object_id = :object_id } -column_array ret] } {
         return [array get ret]
     } else { 
         return {}