diff -ruN klic-3.003-2002-02-18c/runtime/config/pvm/distpkt.c klic-3.003-2002-02-18d/runtime/config/pvm/distpkt.c
--- klic-3.003-2002-02-18c/runtime/config/pvm/distpkt.c	Sat Feb 16 11:51:44 2002
+++ klic-3.003-2002-02-18d/runtime/config/pvm/distpkt.c	Mon Feb 18 16:47:31 2002
@@ -46,7 +46,7 @@
 extern int send_profile();
 extern int send_profile_trigger();
 extern void count_profile();
-extern q* set_simple_interval_timer_handler();
+extern void set_simple_interval_timer_handler();
 
 /* Communication buffer management functions */
 static combuf*
@@ -145,9 +145,9 @@
     if (IS_SHOEN_NODE(my_node)){
       struct itimerval interval;
       long isec, usec;
-      set_heapp( set_simple_interval_timer_handler(heapp(),
+      set_simple_interval_timer_handler(
 						PROF_GATHER_INTERVAL_SEC,
-						0, send_profile_trigger) );
+						0, send_profile_trigger );
     }else{
       call_at_time_intervals(0, PROF_SAMPLE_INTERVAL_uSEC, count_profile);
       /* add_signal_handler(SIGUSR2, send_profile); */
@@ -161,8 +161,7 @@
       interval_usec = 10000;
     isec = interval_usec / 1000000;
     usec = interval_usec % 1000000;
-    set_heapp( set_simple_interval_timer_handler(heapp(), isec, usec,
-					      receive_message) );
+    set_simple_interval_timer_handler(isec, usec, receive_message);
   }
 #endif /* USETIMER */
 }
diff -ruN klic-3.003-2002-02-18c/runtime/config/pvm-tcp/distpkt.c klic-3.003-2002-02-18d/runtime/config/pvm-tcp/distpkt.c
--- klic-3.003-2002-02-18c/runtime/config/pvm-tcp/distpkt.c	Sat Feb 16 11:50:28 2002
+++ klic-3.003-2002-02-18d/runtime/config/pvm-tcp/distpkt.c	Mon Feb 18 16:46:27 2002
@@ -35,6 +35,7 @@
 #include <netinet/tcp.h>
 #include <netdb.h>
 
+extern void set_simple_interval_timer_handler();
 int receive_message();
 int add_signal_handler();
 void init_sigio_handler();
@@ -467,7 +468,6 @@
 {
     declare_globals;
     int i;
-    q *set_simple_interval_timer_handler();
 
     init_sigio_handler();
 
@@ -505,8 +505,7 @@
 	  interval_usec = 10000;
 	isec = interval_usec / 1000000;
 	usec = interval_usec % 1000000;
-	set_heapp( set_simple_interval_timer_handler
-          (heapp(), isec, usec, receive_message) );
+	set_simple_interval_timer_handler(isec, usec, receive_message);
     }
 #endif
     signal(SIGUSR2, dummy);
diff -ruN klic-3.003-2002-02-18c/runtime/config/shm/distpkt.c klic-3.003-2002-02-18d/runtime/config/shm/distpkt.c
--- klic-3.003-2002-02-18c/runtime/config/shm/distpkt.c	Sat Feb 16 11:52:44 2002
+++ klic-3.003-2002-02-18d/runtime/config/shm/distpkt.c	Mon Feb 18 16:45:01 2002
@@ -42,6 +42,8 @@
 
 #define INITIAL_COMBUF_SIZE	0x10000	/* for inbuf and outbuf */
 
+extern void set_simple_interval_timer_handler();
+
 /* Communication buffer management functions */
 combuf *
 alloc_combuf(bufsize)
@@ -137,17 +139,15 @@
     int send_profile_trigger();
     void count_profile();
 
-    q *set_simple_interval_timer_handler();
-
     add_signal_handler(SIGUSR1, receive_message);
 #ifdef USETIMER
     if(rmonnode){
 	if (IS_SHOEN_NODE(my_node)){
 	    struct itimerval interval;
 	    long isec, usec;
-	    set_heapp( set_simple_interval_timer_handler(heapp(),
+	    set_simple_interval_timer_handler(
 						PROF_GATHER_INTERVAL_SEC,
-						0, send_profile_trigger) );
+						0, send_profile_trigger );
 	}else {	
 	    call_at_time_intervals(0, PROF_SAMPLE_INTERVAL_uSEC, 
 				   count_profile);
@@ -161,8 +161,7 @@
 	  interval_usec = 10000;
 	isec = interval_usec / 1000000;
 	usec = interval_usec % 1000000;
-	set_heapp( set_simple_interval_timer_handler(heapp(), isec, usec,
-						  receive_message) );
+	set_simple_interval_timer_handler(isec, usec, receive_message);
     }
 #endif
 }
diff -ruN klic-3.003-2002-02-18c/runtime/ktimer.c klic-3.003-2002-02-18d/runtime/ktimer.c
--- klic-3.003-2002-02-18c/runtime/ktimer.c	Sat Feb 16 12:01:25 2002
+++ klic-3.003-2002-02-18d/runtime/ktimer.c	Mon Feb 18 16:42:41 2002
@@ -132,8 +132,8 @@
   return newrec;
 }
 
-q *set_simple_interval_timer_handler(allocp, sec, usec, func)
-     q *allocp;
+extern void
+set_simple_interval_timer_handler(sec, usec, func)
      long sec, usec;
      int (*func)();
 {
@@ -154,8 +154,7 @@
     ;
   newrec->next = *tmp;
   *tmp = newrec;
-  process_timer_interrupt(allocp, SIGALRM);
-  return heapp();
+  process_timer_interrupt(heapp(), SIGALRM);
 }  
 
 q *reserve_klic_timer_interrupt(allocp, sec, usec, vrbl)