diff --git a/sc.alles.cls b/sc.alles.cls
index 8caa67c..25ed32e 100755
--- a/sc.alles.cls
+++ b/sc.alles.cls
@@ -160,9 +160,10 @@ ClassMethod filename(code)
 	}
 
 	s filename = ##class(%File).NormalizeFilename( code, wd )
+  //B:code="DPRep.Rest.JSON.cls" "L"
 	#; for *.cls Package.Subpackage.ClassName.cls -> Folder/Subfolder/ClassName.cls
 	if ext ="cls" {
-		s dirs = $piece( code, ".", *-2 ), dirs = $translate( dirs, ".", "/" )
+		s dirs = $piece( code, ".",1, *-2 ), dirs = $translate( dirs, ".", "/" )
 		s relpath = dirs _ "/" _ $piece( code, ".", *-1, * ) ;
 		s filename = ##class(%File).NormalizeFilename( relpath, wd )
 	}