Index: trunk/ippScripts/scripts/register_exp.pl
===================================================================
--- trunk/ippScripts/scripts/register_exp.pl	(revision 13018)
+++ trunk/ippScripts/scripts/register_exp.pl	(revision 13019)
@@ -65,4 +65,11 @@
                            "exp_type", # Exposure type
                            "filter", # Filter used
+                           "dateobs", # Time of exposure
+                       ];
+
+# These values may vary across components; we will take the average
+use constant VARIABLES => [
+                           "ccd_temp", # CCD temperature
+                           "exp_time", # Exposure time
                            "airmass", # Airmass
                            "ra", # Right ascension
@@ -71,11 +78,4 @@
                            "alt", # Altitude
                            "az", # Azimuth
-                           "dateobs", # Time of exposure
-                       ];
-
-# These values may vary across components; we will take the average
-use constant VARIABLES => [
-                           "ccd_temp", # CCD temperature
-                           "exp_time", # Exposure time
                            ];
 
@@ -139,6 +139,7 @@
         }
         if ($values{$constant} ne $value) {
-            warn ("Value of $constant for $imfile->{REGISTER_CLASSID} doesn't match previous value");
-            &my_die ($exp_tag, $PS_EXIT_PROG_ERROR);
+            warn ("Value of $constant for " . $imfile->{REGISTER_CLASSID()} .
+		  " doesn't match previous value");
+            &my_die($exp_tag, $PS_EXIT_PROG_ERROR);
         }
     }