diff --git a/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st b/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st
index d43ed647..7f132ae8 100644
--- a/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st
+++ b/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st
@@ -12,31 +12,38 @@ Class {
 { #category : 'accessing' }
 PyramidSpCodeObjectInteractionModel >> doItReceiver [
 
-	self projectModel selection ifEmpty: [ ^ self projectModel firstLevelElements ].
-	self projectModel selection size = 1 ifTrue: [ ^self projectModel selection first ].
+	self projectModel selection ifEmpty: [
+		^ self projectModel firstLevelElements ].
+	self projectModel selection size = 1 ifTrue: [
+		^ self projectModel selection first ].
 	^ self projectModel selection asArray
 ]
 
 { #category : 'as yet unclassified' }
 PyramidSpCodeObjectInteractionModel >> doItReceiverString [
 
-	self projectModel selection ifEmpty: [ ^ 'the collection of first level elements' ].
+	self projectModel selection ifEmpty: [
+		^ 'the collection of first level elements' ].
 	self projectModel selection size = 1 ifTrue: [
 		^ 'the selected element' ].
 	^ 'an array of <1p> selected elements' expandMacrosWith:
 		  self projectModel selection size
 ]
 
+{ #category : 'as yet unclassified' }
+PyramidSpCodeObjectInteractionModel >> isScripting [
+
+	^ true
+]
+
 { #category : 'accessing' }
 PyramidSpCodeObjectInteractionModel >> projectModel [
 
 	^ projectModel
-	
 ]
 
 { #category : 'accessing' }
-PyramidSpCodeObjectInteractionModel >> projectModel: aProjectModel [
-
-	projectModel := aProjectModel.
+PyramidSpCodeObjectInteractionModel >> projectModel: anObject [
 
+	projectModel := anObject
 ]