diff --git a/cde/programs/dtcm/dtcm/rfp.c b/cde/programs/dtcm/dtcm/rfp.c
index d0db36195..458768623 100644
--- a/cde/programs/dtcm/dtcm/rfp.c
+++ b/cde/programs/dtcm/dtcm/rfp.c
@@ -213,7 +213,7 @@ rfp_apply_proc(Widget w, XtPointer client_data, XtPointer cbs) {
 	RFP			*rfp = (RFP *)client_data;
 	char			*str, buf[128];
 	XmString		xmstr;
-        Calendar 		*c = rfp->cal;
+        Calendar 		*c;
 	Props_pu		*pu = (Props_pu *)c->properties_pu;
 	Repeat_scope_menu_op	op = REPEAT_DAYS;
 	char			*repeat_str;
@@ -221,6 +221,8 @@ rfp_apply_proc(Widget w, XtPointer client_data, XtPointer cbs) {
 	if (!rfp)
 		return;
 
+	c = rfp->cal;
+
 	str = XmTextGetString(rfp->repeat_popup_text);
 
 	if (!string_is_number(str)) {