--- a/Workspace.st	Tue Apr 25 12:58:23 2017 +0200
+++ b/Workspace.st	Tue Apr 25 12:59:11 2017 +0200
@@ -643,6 +643,8 @@
 !
 
 editedLanguage
+    "get the programming language (for comments, indentation etc.)"
+
     |mthd cls|
     
     editedLanguage notNil ifTrue:[
@@ -657,13 +659,18 @@
     ^ nil
 
     "Modified: / 18-09-2013 / 12:58:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 25-04-2017 / 12:53:40 / cg"
 !
 
 editedLanguage:aProgrammingLanguageOrNil
+    "set the programming language (for comments, indentation etc.)"
+    
     editedLanguage := aProgrammingLanguageOrNil.
     aProgrammingLanguageOrNil notNil ifTrue:[
-	commentStrings := aProgrammingLanguageOrNil commentStrings.
+        commentStrings := aProgrammingLanguageOrNil commentStrings.
     ].
+
+    "Modified (comment): / 25-04-2017 / 12:53:33 / cg"
 !
 
 editedMethod