From 79f48b6994ea72d379bdb36da8ccbc790f958559 Mon Sep 17 00:00:00 2001
From: Evgeny Shvarov <evgeny.shvarov@gmail.com>
Date: Thu, 26 Jan 2017 14:05:59 +0300
Subject: [PATCH] Fixed export bug for classes with sub packages

---
 sc.alles.cls | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 )
 	}