--- trunk/webwork-modperl/lib/WeBWorK/DB/Record/UserProblem.pm	2003/05/15 00:54:54	837
+++ trunk/webwork-modperl/lib/WeBWorK/DB/Record/UserProblem.pm	2003/05/15 00:55:27	838
@@ -16,6 +16,12 @@
 use strict;
 use warnings;
 
+sub KEYFIELDS($) {qw(
+	user_id
+	set_id
+	problem_id
+)}
+
 sub FIELDS($) {qw(
 	user_id
 	set_id