diff --git a/member-fees.scm b/member-fees.scm
index 04905ac..4c73286 100644
--- a/member-fees.scm
+++ b/member-fees.scm
@@ -143,8 +143,8 @@
 	       (if (member 'destroyed (cadr e))
 		   0 ; Destroyed
 		   (if (member 'student (cadr e))
-		       250 ; Student
-		       500))) ; Normal
+		       (lookup-member-fee 'student) ; Student
+		       (lookup-member-fee 'regular)))) ; Normal
 	   0) ; Nonexistent - should not happen
        0)) ; Nonexistent