diff --git a/src/NewTools-Inspector-Extensions/Class.extension.st b/src/NewTools-Inspector-Extensions/Class.extension.st
index 0446c5803..0e88d1780 100644
--- a/src/NewTools-Inspector-Extensions/Class.extension.st
+++ b/src/NewTools-Inspector-Extensions/Class.extension.st
@@ -46,7 +46,7 @@ Class >> inspectionClassDefinition [
 
 	<inspectorPresentationOrder: 915 title: 'Definition'>
 	^ SpCodePresenter new
-		  beForScripting;
+		  beForObject: self;
 		  text: self definitionString;
-		  beNotEditable
+		  whenSubmitDo: [ :code | (Smalltalk compiler evaluate: code) fluidInstall ]
 ]
diff --git a/src/NewTools-Inspector-Extensions/RPackage.extension.st b/src/NewTools-Inspector-Extensions/Package.extension.st
similarity index 90%
rename from src/NewTools-Inspector-Extensions/RPackage.extension.st
rename to src/NewTools-Inspector-Extensions/Package.extension.st
index 42d411a91..5bfa2dcd3 100644
--- a/src/NewTools-Inspector-Extensions/RPackage.extension.st
+++ b/src/NewTools-Inspector-Extensions/Package.extension.st
@@ -1,7 +1,7 @@
-Extension { #name : 'RPackage' }
+Extension { #name : 'Package' }
 
 { #category : '*NewTools-Inspector-Extensions' }
-RPackage >> baselineInspector [
+Package >> baselineInspector [
 
 	<inspectorPresentationOrder: 2 title: 'Belongs to Baselines'>
 	| items |
@@ -12,7 +12,7 @@ RPackage >> baselineInspector [
 ]
 
 { #category : '*NewTools-Inspector-Extensions' }
-RPackage >> overwiew [
+Package >> overwiew [
 
 	<inspectorPresentationOrder: 1 title: 'Overwiew'>
 	| items |