diff --git a/DESCRIPTION b/DESCRIPTION
index 3648e82..ffc6d7a 100755
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: GenomicTools
 Type: Package
 Title: Collection of Tools for Genomic Data Analysis
-Version: 0.3.5
+Version: 0.3.6
 Date: 2023-02-15
 Author: Daniel Fischer
 Maintainer: Daniel Fischer <daniel.fischer@luke.fi>
diff --git a/R/KEGGfunctions.R b/R/KEGGfunctions.R
index 0b74cf9..cdbc702 100644
--- a/R/KEGGfunctions.R
+++ b/R/KEGGfunctions.R
@@ -82,8 +82,7 @@ getKEGGModule <- function(module){
     ORTHOLOGY.tmp <- strsplit(ORTHOLOGY.tmp, " ")
     
     ORTHOLOGY.out <- data.frame(Orthology=sapply(ORTHOLOGY.tmp,"[",1),
-                                Desc=trimws(sapply(sapply(ORTHOLOGY.tmp,"[",-1), paste, collapse=" "))
-                                )
+                                Desc=apply(t(sapply(ORTHOLOGY.tmp,"[",-c(1,2))),1,paste, collapse=" "))
     
   } else {
     ORTHOLOGY.out <- "Not available"
diff --git a/inst/ChangeLog b/inst/ChangeLog
index 30215ac..6ee9428 100755
--- a/inst/ChangeLog
+++ b/inst/ChangeLog
@@ -14,6 +14,7 @@ Planned improvements for 0.4:
 * Reduce redundancy between eQTL and QTL
 
 Version 0.3.*:
+* (6) The getKEGGModule() function had an issue and reported repeatedly same orthologs.
 * (5) Added function getKEGGModuleOverview()
 * (2) Orthologies are now also extracted from the function getKEGGPathway()
 * (1) REGEX for grep of starting and ending lines in getKEGGPathway adjusted
diff --git a/man/GenomicTools-package.Rd b/man/GenomicTools-package.Rd
index efcc9a6..90afd2d 100755
--- a/man/GenomicTools-package.Rd
+++ b/man/GenomicTools-package.Rd
@@ -17,8 +17,8 @@
   \tabular{ll}{
     Package: \tab GenomicTools\cr
     Type: \tab Package\cr
-    Version: \tab 0.3.3\cr
-    Date: \tab 2022-01-31\cr
+    Version: \tab 0.3.6\cr
+    Date: \tab 2023-02-15\cr
     License: \tab GPL\cr
     LazyLoad: \tab yes\cr
   }