Index: /trunk/BNC/scripts/sot.pl
===================================================================
--- /trunk/BNC/scripts/sot.pl	(revision 10685)
+++ /trunk/BNC/scripts/sot.pl	(revision 10686)
@@ -47,5 +47,5 @@
 
             # Check obs types
-            if ( $satSys eq "G" ) {                     # GPS see #65
+            if ( $satSys eq "G" ) {    # GPS see #65
                 foreach my $otp (@obsTyps) {
                     if ( $otp eq "L2P" || $otp eq "C2P" ) {
@@ -63,5 +63,10 @@
     my $obstypes = obsTypes2str( $obsTyps_of{$mp} );
     next unless ($obstypes);
-    writeSOT( "${mp}.sot", $obstypes, $caster );
+
+    # names should be 5 or 10 char long, w/o extension.
+    if ( len($mp) == 4 ) { $mp .= "0" }
+    my $fname = "${mp}.sot";
+
+    writeSOT( $fname, $obstypes, $caster );
 }