diff --git a/code/mpar.f b/code/mpar.f
index 3008c1dd..083c8c1d 100644
--- a/code/mpar.f
+++ b/code/mpar.f
@@ -643,6 +643,11 @@ subroutine set_morfle(morfle)
       data mor4  /'.mor'/
 
       len = ltrunc(path,132)
+
+      if(len.lt.1) then
+         call chcopy(path1(1),'./',2)
+      endif
+
       if (indx1(path1(len),'/',1).lt.1) then
          call chcopy(path1(len+1),'/',1)
       endif