diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/README.md b/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/README.md
new file mode 100644
index 000000000..e69de29bb
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/instance/getCurrentCollection.st b/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/instance/getCurrentCollection.st
new file mode 100644
index 000000000..4b60e767c
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/instance/getCurrentCollection.st
@@ -0,0 +1,4 @@
+other
+getCurrentCollection
+
+	^#()
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/methodProperties.json b/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/methodProperties.json
new file mode 100644
index 000000000..611cbeace
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"getCurrentCollection" : "brunobb 05/06/2020 16:30" } }
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/properties.json b/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/properties.json
new file mode 100644
index 000000000..9c15b2ac6
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "BpmWebGemStoneAdministration",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "WABpmBackupDatabase",
+	"pools" : [
+		 ],
+	"super" : "SewafLateralListComposite",
+	"type" : "normal" }
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/instance/checkAccessToApplicationFor..st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/instance/checkAccessToApplicationFor..st
new file mode 100644
index 000000000..ddd813a6c
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/instance/checkAccessToApplicationFor..st
@@ -0,0 +1,8 @@
+other
+checkAccessToApplicationFor: aBpmUser
+	"Answer wheter or not the user <aBpmUser> has access to the Backoffice application.
+	1) <aBpmUser> is backoffice user in the selected environment --> true or:
+	2) <aBpmUser> is registered in the the selected environment and belong to 'admins' environment with a backoffice role --> true"
+
+	^(aBpmUser isBackofficeUserIn: self session bpmEnvironment) 
+		or: [(self defaultEnvironmentClass getAdminsEnvironment includesUserNamed: aBpmUser username) and: [(aBpmUser isBackofficeUserIn: self defaultEnvironmentClass getAdminsEnvironment)]]
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/instance/showPortalFor..st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/instance/showPortalFor..st
new file mode 100644
index 000000000..6930f79b3
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/instance/showPortalFor..st
@@ -0,0 +1,4 @@
+other
+showPortalFor: aBpmUser
+
+	self show: (WABpmGemStoneAdministrationPortal on: aBpmUser)
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/methodProperties.json b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/methodProperties.json
index 0e4a66223..5e13cc7d9 100644
--- a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/methodProperties.json
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/methodProperties.json
@@ -2,4 +2,5 @@
 	"class" : {
 		 },
 	"instance" : {
-		 } }
+		"checkAccessToApplicationFor:" : "brunobb 05/06/2020 16:16",
+		"showPortalFor:" : "brunobb 05/06/2020 16:15" } }
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/README.md b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/README.md
new file mode 100644
index 000000000..e69de29bb
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/applicationIcon.st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/applicationIcon.st
new file mode 100644
index 000000000..375815853
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/applicationIcon.st
@@ -0,0 +1,2 @@
+other
+applicationIcon
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/applicationName.st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/applicationName.st
new file mode 100644
index 000000000..6aff19242
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/applicationName.st
@@ -0,0 +1,4 @@
+other
+applicationName
+
+	^'GemStone/S Administration'
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/initializeNavigation.st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/initializeNavigation.st
new file mode 100644
index 000000000..bbedf3448
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/initializeNavigation.st
@@ -0,0 +1,13 @@
+other
+initializeNavigation
+	| subMenu1 subMenu2 subMenu3 subMenu4 |
+
+	navigation := SewafPortalMenu new iconLibrary: SEWAFIconLibrary.
+	subMenu1 := (SewafSubMenuItem label: 'Manage GemStone/S DB' icon: #openManageGemStone)
+		addItem: (SewafCommandItem label: 'Backup Database' command: #openBackupDatabase);
+		addItem: (SewafCommandItem label: 'Start Garbage Collection' command: #openStartGarbageCollection);
+		addItem: (SewafCommandItem label: 'List Running Gems' command: #openListRunningGems);
+		addItem: (SewafCommandItem label: 'Repository Statistics' command: #openRepositoryStatistics);
+		yourself.
+
+	navigation addItem: subMenu1.
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/logout.st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/logout.st
new file mode 100644
index 000000000..6ffa22d17
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/logout.st
@@ -0,0 +1,6 @@
+other
+logout
+
+	self session logout.	
+	self session unregister.
+	self requestContext redirectTo: (self getGemStoneServerConfiguration gemstoneIP, '/bpmflow')
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openBackupDatabase.st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openBackupDatabase.st
new file mode 100644
index 000000000..dc2d9c750
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openBackupDatabase.st
@@ -0,0 +1,8 @@
+other
+openBackupDatabase
+
+	(arena isKindOf: WABpmBackupDatabase)
+	ifTrue: [^arena].
+
+	^(WABpmBackupDatabase parent: self)
+		yourself
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openListRunningGems.st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openListRunningGems.st
new file mode 100644
index 000000000..7b7f918d2
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openListRunningGems.st
@@ -0,0 +1,8 @@
+other
+openListRunningGems
+
+	(arena isKindOf: WABpmBackupDatabase)
+	ifTrue: [^arena].
+
+	^(WABpmBackupDatabase parent: self)
+		yourself
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openManageGemStone.st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openManageGemStone.st
new file mode 100644
index 000000000..b4f5b58ce
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openManageGemStone.st
@@ -0,0 +1,8 @@
+other
+openManageGemStone
+
+	(arena isKindOf: WABpmBackupDatabase)
+	ifTrue: [^arena].
+
+	^(WABpmBackupDatabase parent: self)
+		yourself
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openRepositoryStatistics.st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openRepositoryStatistics.st
new file mode 100644
index 000000000..79a30727c
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openRepositoryStatistics.st
@@ -0,0 +1,8 @@
+other
+openRepositoryStatistics
+
+	(arena isKindOf: WABpmBackupDatabase)
+	ifTrue: [^arena].
+
+	^(WABpmBackupDatabase parent: self)
+		yourself
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openStartGarbageCollection.st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openStartGarbageCollection.st
new file mode 100644
index 000000000..eff2c9196
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openStartGarbageCollection.st
@@ -0,0 +1,8 @@
+other
+openStartGarbageCollection
+
+	(arena isKindOf: WABpmBackupDatabase)
+	ifTrue: [^arena].
+
+	^(WABpmBackupDatabase parent: self)
+		yourself
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/renderSwitchPortalIconsOn..st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/renderSwitchPortalIconsOn..st
new file mode 100644
index 000000000..4601daac9
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/renderSwitchPortalIconsOn..st
@@ -0,0 +1,2 @@
+other
+renderSwitchPortalIconsOn: html
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/updateRoot..st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/updateRoot..st
new file mode 100644
index 000000000..2133e608e
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/updateRoot..st
@@ -0,0 +1,12 @@
+other
+updateRoot: anHtmlRoot
+
+    super updateRoot: anHtmlRoot.
+
+    SEWAFCssLibrary default updateRoot: anHtmlRoot.
+
+	anHtmlRoot stylesheet url: (SEWAFCssLibrary / layout getBpmCssFileName).
+"
+'http://192.168.29.142:8787/files/SEWAFCssLibrary/main.css'
+"
+	anHtmlRoot javascript contents: SEWAFJavaScriptLibrary default jsExpandCollapseFunctions.
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/versionName.st b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/versionName.st
new file mode 100644
index 000000000..1c50969a0
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/versionName.st
@@ -0,0 +1,4 @@
+other
+versionName
+
+	^'2020 q1 v3.6.6'
\ No newline at end of file
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/methodProperties.json b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/methodProperties.json
new file mode 100644
index 000000000..9dd9a9bd6
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/methodProperties.json
@@ -0,0 +1,16 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"applicationIcon" : "brunobb 05/06/2020 16:18",
+		"applicationName" : "brunobb 05/06/2020 16:19",
+		"initializeNavigation" : "brunobb 05/06/2020 16:23",
+		"logout" : "brunobb 05/06/2020 16:29",
+		"openBackupDatabase" : "brunobb 05/06/2020 16:28",
+		"openListRunningGems" : "brunobb 05/06/2020 16:28",
+		"openManageGemStone" : "brunobb 05/06/2020 16:28",
+		"openRepositoryStatistics" : "brunobb 05/06/2020 16:28",
+		"openStartGarbageCollection" : "brunobb 05/06/2020 16:29",
+		"renderSwitchPortalIconsOn:" : "brunobb 05/06/2020 16:24",
+		"updateRoot:" : "brunobb 05/06/2020 16:25",
+		"versionName" : "brunobb 05/06/2020 16:25" } }
diff --git a/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/properties.json b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/properties.json
new file mode 100644
index 000000000..c862bd373
--- /dev/null
+++ b/repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "BpmWebGemStoneAdministration",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "WABpmGemStoneAdministrationPortal",
+	"pools" : [
+		 ],
+	"super" : "SEWAFApplicationPortal",
+	"type" : "normal" }
diff --git a/repository/BpmWebGemStoneAdministration.package/monticello.meta/version b/repository/BpmWebGemStoneAdministration.package/monticello.meta/version
index 61a930761..94c43c619 100644
--- a/repository/BpmWebGemStoneAdministration.package/monticello.meta/version
+++ b/repository/BpmWebGemStoneAdministration.package/monticello.meta/version
@@ -1 +1 @@
-(name 'BpmWebGemStoneAdministration-brunobb.1' message '' id '57c8e082-ed8f-4cc6-8352-457f60c248d8' date '05/06/2020' time '15:27:17' author 'brunobb' ancestors () stepChildren ())
\ No newline at end of file
+(name 'BpmWebGemStoneAdministration-brunobb.2' message '' id '6c705e4b-29ea-4c9e-b738-cba197a9bfed' date '05/06/2020' time '16:33:17' author 'brunobb' ancestors ((name 'BpmWebGemStoneAdministration-brunobb.1' message '' id '57c8e082-ed8f-4cc6-8352-457f60c248d8' date '05/06/2020' time '15:27:17' author 'brunobb' ancestors () stepChildren ())) stepChildren ())
\ No newline at end of file