diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index 7834c88..2d3ed42 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -74,8 +74,11 @@ GrafoscopioNotebook >> changeBody: aNode [
 	body := self instantiate: aNode specModelClass new.
 	body content: aNode content.
 	body body class = TextModel 
-		ifTrue: [
-			body body whenTextChanged: [ :arg | aNode body: arg ]].
+		ifTrue: [body body whenTextChanged: [ :arg | aNode body: arg ]].
+	body body class = GlamourPresentationModel 
+		ifTrue: [ 
+			"Transcript show:" "body body glmPres inspect"  ].
+	"Transcript show: body body class; cr."
 	header text: aNode header.
 	body needRebuild: true.		
 	self buildWithSpecLayout: self class defaultSpec.